perm filename ZERO.SAI[4,ALS]1 blob
sn#052854 filedate 1973-07-09 generic text, type T, neo UTF8
00010 BEGIN "ZERO"
00020
00030 INTEGER CHAN1,EOF;
00040
00050 CHAN1←GETCHAN; CLOSE(CHAN1);
00060 OPEN(CHAN1,"DSK",'10,10,2,0,0,EOF);
00070 LOOKUP(CHAN1,"LRN.DAT",0); RENAME(CHAN1,"",0,0); CLOSE(CHAN1);
00080 OPEN(CHAN1,"DSK",'10,10,2,0,0,EOF);
00090 LOOKUP(CHAN1,"RES.DAT",0); RENAME(CHAN1,"",0,0); CLOSE(CHAN1);
00100 OPEN(CHAN1,"DSK",'10,0,10,0,0,0);
00110 ENTER(CHAN1,"RES.DAT",0); CLOSE(CHAN1);
00120 OPEN(CHAN1,"DSK",'10,0,10,0,0,0);
00130 ENTER(CHAN1,"LRN.DAT",0); CLOSE(CHAN1);
00140
00150 END "ZERO";